home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / compuserve-file-archive / 17 Arcade _ Action Games / STRIKE.BIN / STAR STRIKE (.txt) < prev   
Encoding:
Commodore BASIC  |  2019-04-13  |  2.9 KB  |  116 lines
  1. 5 DN=PEEK(186)
  2. 10 IFA=0THENA=1:LOAD"SPRITES",DN,1
  3. 15 SYS49152
  4. 20 IFA=1THENA=2:LOAD"SS",DN,1
  5. 30 POKE52,60:POKE56,60:CLR
  6. 45 GOTO10100
  7. 50 POKE53281,6:POKE34058,0
  8. 55 E=0:S=0:F=0:M=0:D$=""
  9. 100 PRINT"[147]"TAB(5)"***************************"
  10. 105 PRINTTAB(5)"*       SELECT LEVEL      *"
  11. 110 PRINTTAB(5)"***************************"
  12. 120 PRINT"[158]"TAB(13)"1[146]  BEGINNER"
  13. 125 PRINT"[159]"TAB(13)"2[146]  SKILLED"
  14. 130 PRINT"[150]"TAB(13)"3[146]  ADVANCED"
  15. 135 PRINT"[153]"TAB(13)"4[146]  NEUROTIC"
  16. 140 TI$="000000":A$=""
  17. 145 GETA$:IFVAL(A$)>0ANDVAL(A$)<5THEN160
  18. 150 IFVAL(TI$)>30THEN45
  19. 155 GOTO145
  20. 160 IFVAL(A$)=1THENPOKE33083,50:POKE34381,1:POKE36539,40:A=50
  21. 165 IFVAL(A$)=2THENPOKE33083,40:POKE34381,2:POKE36539,30:A=100
  22. 170 IFVAL(A$)=3THENPOKE33083,25:POKE34381,3:POKE36539,20:A=150
  23. 175 IFVAL(A$)=4THENPOKE33083,20:POKE34381,3:POKE36539,15:A=200
  24. 180 PRINT"[147]"TAB(12)"[159] STAR STRIKE "
  25. 185 PRINTTAB(12)"   PHASE I   "
  26. 190 GOSUB17000
  27. 200 FORX=37692TO37919:POKEX,0:NEXT
  28. 210 POKE37721,20:POKE37894,15:PRINT"[147]"
  29. 220 GOSUB15000
  30. 230 SYS32768
  31. 240 FORX=1TO1000:NEXT
  32. 250 POKE53269,0
  33. 260 GOSUB16000
  34. 270 IFPEEK(37702)>0THEND$="1":GOSUB19000
  35. 280 E=PEEK(37719):F=PEEK(37913):S=PEEK(37721)
  36. 300 IFVAL(D$)=1THEN900
  37. 420 PRINT"[147]"TAB(12)"[159] STAR STRIKE "
  38. 430 PRINTTAB(12)"   PHASE II  "
  39. 440 GOSUB17000
  40. 450 FORX=37692TO37919:POKEX,0:NEXT
  41. 460 POKE37721,S:POKE37894,20:POKE37734,1:PRINT"[147]"
  42. 470 GOSUB15000
  43. 480 SYS32768
  44. 490 FORX=1TO1000:NEXT
  45. 500 POKE53269,0
  46. 510 GOSUB16000
  47. 520 IFPEEK(37702)>0THEND$="1":GOSUB19000
  48. 530 E=E+PEEK(37719):F=F+PEEK(37913):S=PEEK(37721)
  49. 670 IFVAL(D$)=1THEN900
  50. 675 IFVAL(A$)=1THENPOKE34381,2
  51. 676 IFVAL(A$)=2THENPOKE34381,3
  52. 677 IFVAL(A$)=3THENPOKE34381,4:POKE34058,1
  53. 678 IFVAL(A$)=4THENPOKE34381,5:POKE34058,2
  54. 680 PRINT"[147]"TAB(12)"[159] STAR STRIKE "
  55. 690 PRINTTAB(12)"  PHASE III  "
  56. 700 GOSUB17000
  57. 710 FORX=37692TO37919:POKEX,0:NEXT
  58. 720 POKE37725,1:POKE37721,S:PRINT"[147]"
  59. 730 GOSUB15000
  60. 740 SYS32768
  61. 750 SYS36377
  62. 760 FORX=1TO1000:NEXT
  63. 770 POKE53269,0
  64. 780 POKE54276,0:POKE54290,0:POKE54283,0
  65. 790 GOSUB16000
  66. 800 IFPEEK(37910)=0THENGOSUB19000
  67. 805 IFPEEK(37910)>0THENGOSUB21000
  68. 900 POKE53281,6:POKE53280,2
  69. 970 PRINT"[147]"TAB(11)"  STAR STRIKE  "
  70. 980 PRINTTAB(11)"    SCORES     "
  71. 1000 PRINT"   ALIEN SHIPS DESTROYED  [158]---",E
  72. 1010 PRINT"    ALIEN FIRE DESTROYED  [158]---",F
  73. 1020 PRINT" REMAINING SHIELD ENERGY  [158]---",S
  74. 1050 T=E*A+S*A+F*A
  75. 1060 PRINTTAB(12)"[159]TOTAL SCORE"
  76. 1065 PRINTTAB(15)"[158]"T
  77. 1070 IFM=0THEN1110
  78. 1075 T=T+1000
  79. 1080 PRINT"  BONUS FOR DESTROYING MOTHER SHIP"
  80. 1090 PRINTTAB(12)"[158]1000 POINTS"
  81. 1100 PRINTTAB(5)"GRAND TOTAL  [158]----";T
  82. 1110 IFT>HSTHENHS=T
  83. 1120 FORX=1TO10000:NEXT
  84. 1130 GOTO45
  85. 10100 POKE53280,0:POKE53281,0:PRINT"[147]"
  86. 10110 PRINT"[154]    [164][164][164][164]    [164][164][164][164][164][164]                [164][164][164]"
  87. 10120 PRINT"   [206]   [206][205][206]     [206][205]     [206][205]       [206]  [206][205]"
  88. 10130 PRINT"  [169]    [223][146][154][206] [169]      [223][146][154][206]    [169][223][146][154] [205]     [169]   [223][146][154][206][165]"
  89. 10140 PRINT"    [146][154][206]  [206][205]     [146][154] [165]     [169]  [223][146][154] [205]     [146][169] [223] [146][154][206]"
  90. 10260 PRINT""TAB(19)"[158]BY":PRINTTAB(16)"BOB EATON"
  91. 10265 PRINTTAB(12)"HI SCORE   ";HS
  92. 10270 PRINT"[158]   PRESS A KEY OR FIRE TO CONTINUE"
  93. 10280 POKE198,0:SYS35478
  94. 10300 GOTO50
  95. 15000 POKE56578,PEEK(56578)OR3
  96. 15010 POKE56576,(PEEK(56576)AND252)OR2
  97. 15020 POKE53272,PEEK(53272)OR8
  98. 15030 POKE53265,PEEK(53265)OR32
  99. 15040 RETURN
  100. 16000 POKE56578,PEEK(56578)OR3
  101. 16010 POKE56576,(PEEK(56576)AND252)OR3
  102. 16020 POKE53272,21:POKE53265,27
  103. 16030 RETURN
  104. 17000 POKE53281,6:PRINT""TAB(12)" GET READY ! "
  105. 17010 PRINT""TAB(8)"[158]PRESS FIRE TO CONTINUE
  106. 17020 [151]198,0:[158]35478
  107. 17030 [142]
  108. 19000 [151]53281,0:[153]"LOADSYS"[163]6)"YOU HAVE BEEN DESTROYED!!!"
  109. 19010 [129]X[178]1[164]4000:[130]
  110. 19020 [142]
  111. 21000 [151]53281,6:[151]53280,2
  112. 21010 [153]"LOAD"[163]10)"CONGRATULATIONS!!!"
  113. 21030 [153]""[163]5)"YOU HAVE COMPLETED YOUR MISSION.":M[178]1
  114. 21040 [129]X[178]1[164]5000:[130]
  115. 21050 [142]
  116.